home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)ze.d64 / generror.n.l < prev    next >
Text File  |  2007-03-01  |  3KB  |  108 lines
  1. 0010 //LIST"GENERROR.N.L"
  2. 0020 //     GENERROR.N.L
  3. 0030 //     <C> 1984 COMAL80GGNL
  4. 0040 //
  5. 0050 //--------------------------------
  6. 0060 //
  7. 0070 // 2 FEB 85: REVERSE TEKSTEN
  8. 0080 //
  9. 0090 //--------------------------------
  10. 0100 PRINT CHR$(147),
  11. 0110 PRINT CHR$(14),
  12. 0120 PRINT " ",CHR$(18)," ╟┼╬┼╥╥╧╥.╬.╠ ",CHR$(146)
  13. 0130 PRINT 
  14. 0140 PRINT "─IT PROGRAMMA PLAATST DE FOUTMELDINGEN"
  15. 0150 PRINT "OP EEN GEFORMATTEERDE DISKETTE"
  16. 0160 DIM Z$ OF 1
  17. 0170 ACCOORD
  18. 0180 PRINT 
  19. 0190 PRINT "╠ISTING '├╧═┴╠┼╥╥╧╥╙' OP 0:",
  20. 0200 //
  21. 0210 DIM A$ OF 80
  22. 0220 OPEN FILE 1,"@0:COMALERRORS",WRITE
  23. 0230 WHILE NOT EOD DO
  24. 0240 READ ERRNO,SEV,A$
  25. 0250 A$:=CHR$(18)+A$+CHR$(146)
  26. 0260 LNG:=LEN(A$)
  27. 0270 PRINT FILE 1: CHR$(ERRNO),CHR$(LNG),CHR$(SEV),A$,
  28. 0280 PRINT ".",
  29. 0290 ENDWHILE 
  30. 0300 CLOSE
  31. 0310 PRINT 
  32. 0320 PRINT 
  33. 0330 PRINT "EINDE GENERROR.N.L"
  34. 0340 END 
  35. 0350 //
  36. 0360 FOUTMELDINGEN:
  37. 0370 // <NR>,<SOORT>,<TEKST> //
  38. 0380 //
  39. 0390 DATA 0,0,"FORMAT-FOUT"
  40. 0400 DATA 1,0,"SYNTAX-FOUT"
  41. 0410 DATA 2,0,"KONFLIKT IN TYPE"
  42. 0420 DATA 3,0,"FOUT IN PARAMETER"
  43. 0430 DATA 4,0,"STATEMENT TE LANG/TE INGEWIKKELD"
  44. 0440 DATA 5,1,"SYSTEEM-FOUT"
  45. 0450 DATA 6,0,"NAAM TE LANG"
  46. 0460 DATA 7,0,"')' OF '(' VERWACHT"
  47. 0470 DATA 8,0,"OVERFLOW"
  48. 0480 DATA 9,0,"FOUT IN PROGRAMMA-STRUCTUUR"
  49. 0490 DATA 10,0,"FOUT IN GOTO-STATEMENT"
  50. 0500 DATA 11,1,"GEHEUGENRUIMTE TE KLEIN"
  51. 0510 DATA 12,0,"ONGEDEFINIEERDE VARIABELE"
  52. 0520 DATA 13,1,"FOUT IN PARAMETER"
  53. 0530 DATA 14,1,"FOUT IN INDEX"
  54. 0540 DATA 15,0,"FOUT IN SUBSTRING"
  55. 0550 DATA 16,0,"FOUT IN COMMANDO/ARRAY/SUBSTRG/PROC"
  56. 0560 DATA 17,0,"FOUT IN INDEX"
  57. 0570 DATA 18,0,"TE VEEL/WEINIG INDICES"
  58. 0580 DATA 19,0,"FOUT IN STRING-TOEKENNING"
  59. 0590 DATA 20,0,"FOUT IN PARAMETER"
  60. 0600 DATA 21,1,"NIET GEIMPLEMENTEERD"
  61. 0610 DATA 22,0,"ZONE-WAARDE ONJUIST"
  62. 0620 DATA 23,0,"STEP = 0"
  63. 0630 DATA 24,1,"ARRAY REEDS GEDEFINIEERD"
  64. 0640 DATA 25,1,"FOUT IN DIMENSIE"
  65. 0650 DATA 26,0,"FOUT IN CASE-STATEMENT"
  66. 0660 DATA 27,0,"EOD GELEZEN"
  67. 0670 DATA 28,0,"FILE REEDS OPEN"
  68. 0680 DATA 29,0,"FOUT BIJ FILE-INPUT"
  69. 0690 DATA 30,0,"EOF GELEZEN"
  70. 0700 DATA 31,0,"FILE NIET OPEN"
  71. 0710 DATA 32,1,"NIET MOGELIJK"
  72. 0720 DATA 33,1,"FOUT IN PRINT USING"
  73. 0730 DATA 34,0,"DELING DOOR NUL"
  74. 0740 DATA 35,1,"ONJUIST PROGRAMMA-GEBRUIK"
  75. 0750 DATA 36,0,"FILE BESTAAT NIET"
  76. 0760 DATA 37,1," "
  77. 0770 DATA 38,1,"GEEN INPUT-FILE"
  78. 0780 DATA 39,1,"ONBEKEND RANDAPPARAAT"
  79. 0790 DATA 40,1,"GEEN OUTPUT-FILE"
  80. 0800 DATA 41,0,"ONGEDEFINIEERDE VARIABELE"
  81. 0810 DATA 42,1,"GEEN LOKALE VARIABELE"
  82. 0820 DATA 52,0,"TE VEEL NAMEN"
  83. 0830 DATA 53,1,"RETURN-STATEMENT ONTBREEKT"
  84. 0840 DATA 54,0,"GEEN STATEMENT"
  85. 0850 DATA 55,0,"GEEN COMMANDO/STATEMENT"
  86. 0860 DATA 56,0,"',' VERWACHT"
  87. 0870 DATA 57,0,"BUITEN BEREIK"
  88. 0880 DATA 58,0,"UITDRUKKING VERWACHT"
  89. 0890 DATA 59,0,"NIET GEIMPLEMENTEERD"
  90. 0900 DATA 60,0,"OPERAND VERWACHT"
  91. 0910 DATA 91,0,"FOUT #1"
  92. 0920 DATA 92,0,"FOUT #2"
  93. 0930 DATA 100,1,"EERST SETGRAPHIC 0 CQ 1"
  94. 0940 DATA 101,0,"FOUTIEF KLEURNUMMER"
  95. 0950 DATA 102,0,"FOUTIEVE KOORDINATEN"
  96. 0960 //
  97. 0970 PROC ACCOORD 
  98. 0980 PRINT 
  99. 0990 PRINT "┴CCOORD? (J/N): ",
  100. 1000 REPEAT 
  101. 1010 Z$:=KEY$
  102. 1020 UNTIL Z$ IN "JN╩╬"
  103. 1030 PRINT Z$
  104. 1040 IF Z$="N" THEN END 
  105. 1050 ENDPROC ACCOORD
  106. 1060 //
  107. 1070 //EINDE GENERROR.N.L//
  108.